home *** CD-ROM | disk | FTP | other *** search
/ BUG 1 / BUGCD1996_0708.ISO / pc / util / minilin / minilin.exe / ROOT / _EMACS.{__ < prev    next >
Lisp/Scheme  |  1993-04-04  |  3KB  |  76 lines
  1. (setq text-mode-hook 'turn-on-auto-fill)
  2. (setq make-backup-files nil)
  3. (put 'eval-expression 'disabled nil)
  4. (setq auto-mode-alist (mapcar 'purecopy
  5.                               '(("\\.c$" . c-mode)
  6.                                 ("\\.h$" . c-mode)
  7.                                 ("\\.tex$" . TeX-mode)
  8.                                 ("\\.txi$" . Texinfo-mode)
  9.                                 ("\\.el$" . emacs-lisp-mode)
  10.                                 ("\\.a$" . c-mode))))
  11.  
  12. (defvar cursor-map-2 (make-keymap)
  13. "for ESC-[")
  14. (fset 'Cursor-Map-2 cursor-map-2)
  15. (define-key esc-map "[" 'Cursor-Map-2)
  16.  
  17. (define-key esc-map "[A" 'previous-line)
  18. (define-key esc-map "[B" 'next-line)
  19. (define-key esc-map "[C" 'forward-char)
  20. (define-key esc-map "[D" 'backward-char)
  21. (define-key esc-map "[H" 'beginning-of-line)
  22. (define-key esc-map "[Y" 'end-of-line)
  23. (define-key esc-map "[5^" 'scroll-down)
  24. (define-key esc-map "[6^" 'scroll-up)
  25. (define-key esc-map "[[A" 'help-for-help)
  26. (define-key esc-map "[[B" 'byte-compile-file)
  27. (define-key esc-map "[[C" 'isearch-forward)
  28. (define-key esc-map "[[D" 'query-replace-regexp)
  29. (define-key esc-map "[[E" 'eval-defun)
  30. (define-key esc-map "[[F" 'eval-current-buffer)
  31. (define-key esc-map "[[G" 'buffer-menu)
  32. (define-key esc-map "[[H" 'global-set-key)
  33. (define-key esc-map "[[I" 'save-buffer)
  34. (define-key esc-map "[[J" 'save-buffers-kill-emacs)
  35. (define-key esc-map "[2^" 'set-mark-command)
  36. (define-key esc-map "[3^" 'delete-char)
  37.  
  38. (setq load-path (cons (expand-file-name "PATH_FOR_AUC-TEX") load-path))
  39. (autoload 'tex-mode "auc-tex" "Automatic select TeX or LaTeX mode" t)
  40. (autoload 'plain-tex-mode "auc-tex" "Mode for Plain TeX" t)
  41. (autoload 'latex-mode "auc-tex" "Mode for LaTeX" t)
  42. (autoload 'LaTeX-math-mode    "tex-math"      "Math mode for TeX." t)
  43. (autoload 'outline-minor-mode "outline-m" "Minor Outline Mode." t)
  44.  
  45. (defun Ctl-C-prefix ()
  46.   Ctl-C-keymap)
  47. (setq Ctl-C-keymap (make-keymap))
  48. (global-set-key "\C-c" (Ctl-C-prefix))
  49.  
  50. (define-key Ctl-C-keymap "m" 'LaTeX-math-mode)
  51. (define-key Ctl-C-keymap "o" 'outline-minor-mode)
  52.  
  53. (make-variable-buffer-local 'outline-prefix-char)
  54. (setq-default outline-prefix-char "\C-l")
  55. (make-variable-buffer-local 'outline-regexp)
  56. (setq-default outline-regexp "[*\l]+")
  57. (make-variable-buffer-local 'outline-level-function)
  58. (setq-default outline-level-function 'outline-level-default)
  59. (autoload 'ispell-word "ispell"
  60.   "Check the spelling of word in buffer." t)
  61. (global-set-key "\e$" 'ispell-word)
  62. (autoload 'ispell-region "ispell"
  63.   "Check the spelling of region." t)
  64. (autoload 'ispell-buffer "ispell"
  65.   "Check the spelling of buffer." t)
  66. (autoload 'ispell-complete-word "ispell"
  67.   "Look up current word in dictionary and try to complete it." t)
  68. (autoload 'ispell-change-dictionary "ispell"
  69.   "Change ispell dictionary." t)
  70.  
  71. (setq auto-mode-alist
  72.    (append  '(("\\.st$" . smalltalk-mode))
  73.        auto-mode-alist))
  74.  
  75. (autoload 'smalltalk-mode "/usr/emacs/lisp/st.el" "" t)
  76.